home *** CD-ROM | disk | FTP | other *** search
/ Invisible Universe / Invisible Universe (1995)(Voyager)[Mac-PC].iso / mac / MOVIES / Full Text Poetry.DIR / 00003_Script_3 next >
Text File  |  1995-11-13  |  2KB  |  84 lines
  1. on idle
  2.   showHilite
  3.   if the Movie = " POETRY.DIR" then goMovieGo
  4.   pass
  5. end idle
  6.  
  7. on exitFrame
  8.   go to the frame
  9. end
  10.  
  11. on startMovie
  12.   setLocalVariables
  13.   buildPoetryButtons
  14.   buildPoetryList
  15.   newPoem
  16. end startMovie
  17.  
  18. on newPoem
  19.   global gPoemLabel, gPageIndex
  20.   if voidP(gPoemLabel) then put "P11" into gPoemLabel
  21.   go frame (label(gPoemLabel)-1)
  22.   --puppetTransition 50,1,120,false
  23.   go to marker(1)
  24.   addToRetrace
  25.   put 0 into gPageIndex
  26.   setUpPage "next"
  27.   updateStage
  28. end newPoem
  29.  
  30. on stopMovie
  31.   unload
  32.   pass
  33. end stopMovie
  34.  
  35. on setLocalVariables
  36.   global gPoemIsPlaying, gRetraceNames, gVolume
  37.   global gCurrChan,gFirsChan,gLastChan,gPrevHilite
  38.   if voidP(gRetraceNames) then put empty into gRetraceNames
  39.   if voidP(gVolume) then put 7 into gVolume
  40.   put false into gPoemIsPlaying
  41.   put 0 into gPrevHilite
  42.   put 2 into gCurrChan
  43.   put 2 into gFirsChan
  44.   put 8 into gLastChan
  45. end setLocalVariables
  46.  
  47. on addToRetrace
  48.   global gPoetryList,gRetraceNames,gLastRetraceName
  49.   global gRetraceLabels, gPoemLabel, gPageIndex, it
  50.   put the frameLabel into gPoemLabel
  51.   put getaProp(gPoetryList, gPoemLabel) into it
  52.   put getAt(it,1) into retraceName
  53.   if gLastRetraceName = retraceName then exit
  54.   put the number of lines in gRetraceNames into nr
  55.   put gLastRetraceName into line(nr+1) of gRetraceNames
  56.   put gPoemLabel into line(nr+1) of gRetraceLabels
  57.   if nr = 15 then
  58.     delete line 1 of gRetraceNames
  59.     delete line 1 of gRetraceLabels
  60.     put retraceName into gLastRetraceName
  61.   end if
  62. end addToRetrace
  63.  
  64. on getDescr N
  65.   --  searches the data in the list for the product then returns the description
  66.   --  you could make similar handlers for other values in the property lists.
  67.   global Data
  68.   if not listP(Data) then set Data = value(field "data")
  69.   repeat with P in Data
  70.     if the Prod of P = N then return ( the Desc of P )
  71.   end repeat
  72. end
  73.  
  74. on delay howLong
  75.   startTimer
  76.   repeat while the timer < howLong
  77.   end repeat
  78. end delay
  79.  
  80. on contentsxxx
  81.   stopPoem
  82.   go movie "TOC.DIR"
  83.   abort
  84. end contents